                        ; 
;
                        ;맮  #7
W16K3=MUX(7,7,0),(P5,U10K0,I0K2)
;  
U205K1=I0A9
U205K2=I0A10
;-------------------------------------------------
$                     ; 
;------------------------------
;       
T0I(7)=/T1D
T1I(7)=/T0D
;-----------------------------------
                        ; 
;HLDR 
U10K2=I0K26+U10K2*/I0K1
;---------------------------------
;        
C0I(2)=I2N0*I6K21
C0Z=/I6K21+U200K1
U200K0=[C0W=1]
U10K20=U200K0
U200K2=/U200K0
U4A0=U200K0
U4A4=U200K0
T2I(20)=U200K0
;U200K1=T2U*/(I0A0*I0A1*I0A2*I0A3*I0A4*/I0A21*/I0A22*/I0A23)+U200K1*/I2N7+U222K9
U200K1=T2U*/I0A3+U200K1*/I2N7+U222K9
U10K0=U200K2
;-----------------------------------------
;      
U224K0=/I0A5+/I0A6+/I0A7+/I0A8
;--------------------------------------
;         饣 
;RABI
U10K8=U200K0
U10K9=U200K0
U10K10=U200K0
U10K11=U200K0
;        襭 
;COMU
T20I(15)=U200K0*I0K2*(/U224K0+[C20W=1])
U10K24=T20U
;U10K24=U200K0
U10K27=U200K0
U10K28=U200K0
U10K29=U200K0
U4A6=U10K24
U4A7=U10K24
;U4A6=U200K0*I0K2
;U4A7=U200K0*I0K2
;------------------------------------
;        襭 M,S,T,᭠ 
;CEFA
U10K25=I0K2
;-------------------------------------------
;        ࠢ ஢ ⮢ ஢ 
;CEFAB
U10K26=/[W3K0=30H]
;----------------------------------------
;      RESET 騩 
U10K1=I2N7
;--------------------------------------
;      SMENA KORREKTORA
U10K21=I4K17
;-----------------------------
;      PRERYVANIE PODACHI
U10K5=(U222K0+/I0A19+U224K0*[C20W=0])*/I0K1+/U10K24
;U10K5=/U200K0
;U10K5=(U222K0+/I0A19)*/I0K1
;------------------------------------------------
;-----------------------------------------
                        ;
U11K16=U200K0*I0A21
U11K17=U200K0*I0A22
; 3
U202K3=[W3K0=3]+U202K3*/[W3K0=4]*/[W3K0=5]*/[W3K0=19H]*/I0K1
; 4
U202K4=[W3K0=4]+U202K4*/[W3K0=3]*/[W3K0=5]*/[W3K0=19H]*/I0K1
;ROMAO
U11K3=U202K3*I0A18
;ROMAA
U11K4=U202K4*I0A18
U4A8=(U11K3+U11K4)*/U200K2
;-----------------------------------
;???????????????????????????????
;Off switch JOG
U15N7=U200K0
U100K0=U10K0*T0D
W15K0=0
;--------------------------------------------------
;        
U200K3=I8K24+I8K25+I8K26
U200K4=(I8K27+I8K28+I8K29+I8K30)*I0K2
U200K5=(I8K27+I8K29)*I0K2
U200K6=(I8K27+I8K28)*I0K2
;-------------------------------
;     
U4A11=U200K0*/I0A18*/I0A19*I0A26*/I0A27
U4A12=U200K0*/I0A18*/I0A19*I0A27*/I0A26
;-------------------------------
;      
U210K1=I0A12+U210K1*/(I0A13+I0A14+I0A15+I0A16+I0A17+I0A24+I0A25)
U210K2=I0A13+U210K2*/(I0A12+I0A14+I0A15+I0A16+I0A17+I0A24+I0A25)
U210K3=I0A14+U210K3*/(I0A12+I0A13+I0A15+I0A16+I0A17+I0A24+I0A25)
U210K4=I0A15+U210K4*/(I0A12+I0A13+I0A14+I0A16+I0A17+I0A24+I0A25)
U210K5=I0A16+U210K5*/(I0A12+I0A13+I0A14+I0A15+I0A17+I0A24+I0A25)
U210K6=I0A17+U210K6*/(I0A12+I0A13+I0A14+I0A15+I0A16+I0A24+I0A25)
U210K7=I0A24+U210K7*/(I0A12+I0A13+I0A14+I0A15+I0A16+I0A17+I0A25)
U210K8=I0A25+U210K8*/(I0A12+I0A13+I0A14+I0A15+I0A16+I0A17+I0A24)
U222K0=/U222K1*U222K0*U200K0+I4K17*U200K0
;W223K0=MUX(1,2,3,4,5,6,7,8),(I0A12,I0A13,I0A14,I0A15,I0A16,I0A17,I0A24,I0A25)
W223K0=MUX(1,2,3,4,5,6,7,8),(U210K1,U210K2,U210K3,U210K4,U210K5,U210K6,U210K7,U210K8)
U222K2=[W4K0=W223K0]
U222K3=I0A11*U222K2
;U222K3=/I0A11*U222K2
;U222K1=U222K0*U222K3
U222K1=U222K0*U222K3+/U200K0
U222K4=U222K4*/U222K1*U222K0+U222K0*/U222K3
U222K5=U222K4*/U222K2
U222K6=U222K4*U222K2
U4A2=U200K0*U222K0*U222K4*U222K5
U4A3=U200K0*U222K0*U222K4*U222K6
;-----------------------------------
;Program Unload. Command (REL)
P0=I2N6*U200K3
U10K23=U200K0
;
W17K0=MUX(15,16,7,8,19),(P5,P6,P7,P8,P0)
;SPGCOM
U10K18=P0+U10K18*/I5K30*/I5K31*/I0K1+P5+P6+P7+P8
;CMDLOG
U10K19=P0+U10K19*/I5K30*/I5K31*/I0K1+P5+P6+P7+P8 
;-------------------------
;UCV
P5=[C15W=1]
P6=[C15W=0]
;
;USO
P7=[C16W=1]
P8=[C16W=0]
;------------------------------------------------
         ;
;
;F1  
W11N0=MUX(1,3,2),(U231K0,U231K1,U231K2)
U231K0=U200K1
U231K1=U200K0
U231K2=U200K2
;
;F2  
W11N1=MUX(1,35,34),(U232K0,U232K1,U232K2)
U232K0=U200K2
U232K1=U200K0*[C12W=1]
U232K2=U200K0*[C12W=0]
;
;F3  
W11N2=MUX(1,1,22),(U233K0,U233K1,U233K2)
U233K0=U200K2
U233K1=U200K0*[C13W=1]
U233K2=U200K0*[C13W=0]
;
;F4  
W11N3=MUX(1,6,7),(U234K0,U234K1,U234K2)
U234K0=U200K2
U234K1=U200K0*[C14W=1]
U234K2=U200K0*[C14W=0]
;
;F5  UCV,  
W12N0=MUX(1,38,39,40),(U235K0,U235K1,U235K2,U235K3)
U235K0=U200K2+U200K0*/U200K3*/(I8K27*U224K0)
U235K1=U200K0*U200K3
U235K2=U200K0*I8K27*U224K0*[C20W=0]
U235K3=U200K0*I8K27*U224K0*[C20W=1]
;
;F6   
W12N1=MUX(1,37,10,11,12,13,14,9),(U236K0,U236K7,U236K1,U236K2,U236K3,U236K4,U236K5,U236K6)
U236K0=U200K2+U200K0*I8K31
U236K1=U100K24
U236K2=U100K25
U236K3=U100K26
U236K4=U100K27
U236K5=U100K28
U236K6=U100K31
U236K7=U200K0*U200K3
;
;F7    ,   
U237K0=U200K2+/(I8K28+U200K3)
DOF:/U237K0
W12N2=MUX(25,15,16,17,18,19,20,8),(U237K1,U237K2,U237K3,U237K4,U237K5,U237K6,U237K7,U237K8)
U237K1=U200K0*U200K3
U237K2=U16K16*I8K28*U200K0
U237K3=U16K17*I8K28*U200K0
U237K4=U16K18*I8K28*U200K0
U237K5=U16K19*I8K28*U200K0
U237K6=U16K20*I8K28*U200K0
U237K7=U16K21*I8K28*U200K0
U237K8=U16K22*I8K28*U200K0
ENDF
DOF:U237K0
W12N2=1
ENDF
;
;F8   
W12N3=MUX(26,26,26),(U238K0,U238K1,U238K2)
U238K0=U200K2
U238K1=U200K0
U238K2=U200K0
;
;F9   X+
;W13N0=MUX(255,0,165,23,21),(U239K0,U239K1,U239K4,U239K2,U239K3)
W13N0=MUX(255,0,165,23,21),(U239K0,U239K1,U239K4,U239K2,U239K3)
U239K0=U200K2
U239K1=U200K0*U200K3
U239K2=I2N8
U239K3=I0K4
U239K4=I8K30
;
;F10  X-
;W13N1=MUX(0,24,22),(U240K0,U240K1,U240K2)
W13N1=MUX(0,24,22),(U240K0,U240K1,U240K2)
U240K0=U200K2+U200K3+I8K30
U240K1=I2N9
U240K2=I0K4
;
;F11  Z+
W13N2=MUX(0,167,31,29),(U241K0,U241K3,U241K1,U241K2)
U241K0=U200K2+U200K3
U241K1=I2N10
U241K2=I0K4
U241K3=I8K30
;
;F12  Z-
W13N3=MUX(0,32,30),(U242K0,U242K1,U242K2)
U242K0=U200K2+U200K3+I8K30
U242K1=I2N11
U242K2=I0K4
;
;F13
W14N0=MUX(0,157,156),(U243K0,U243K1,U243K2)
U243K0=U200K2
U243K1=U200K0*[C16W=1]
U243K2=U200K0*[C16W=0]
;
;F14
W14N1=MUX(55,45,46),(U244K0,U244K1,U244K2)
U244K0=U200K2
U244K1=U200K0*/U11K4
U244K2=U200K0*U11K4
;
;F15
W14N2=MUX(55,43,44),(U245K0,U245K1,U245K2)
U245K0=U200K2
U245K1=U200K0*[C12W=0]
U245K2=U200K0*[C12W=1]
;
;F16
W14N3=MUX(55,47,48),(U246K0,U246K1,U246K2)
U246K0=U200K2
U246K1=U200K0*/U11K3
U246K2=U200K0*U11K3
;-----------------------------------------
;      F   ,    
;F2  
C12I(2)=I2N1*U200K0
U4A10=[C12W=1]
C12Z=/U200K0
;
;F3  
C13I(2)=I2N2*U200K0*/[C13W=1]
U4A1=[C13W=1]
T13I(30)=[C13W=1]
C13Z=/U200K0+[C13W=1]*T13U
;
;F4  
C14I(2)=U200K0*(I2N3+[W3K0=7]*[C14W=0])
U4A5=[C14W=1]
C14Z=/U200K0+U200K0*[W3K0=9]
;
;F5 UCV,  
C15I(2)=I2N4*U200K0*U200K3
C20I(2)=I2N4*U200K0*I8K27
C15Z=/U200K0
C20Z=/U200K0+U200K0*/U224K0
;
U223K0=[C15W=1]
;
;F6 USO
C16I(2)=I2N5*U200K0*U200K3
C16Z=/U200K0
;---------------------------------             
           ; MDI, AUTO, STEP
DOF  BLOCK: I8K24+I8K25+I8K26
;F2
U100K13=/I0N10
;--------------------------------------
                      ;STATUS of PROCESS
;
U230K0=/U200K0*[C0W=1]
;-------------------------------
ENDF BLOCK
;**********************************************
                        ;MANU, MANJ, PROF, HOME
;**********************************************
;COMMON FOR MANU, MANJ, PROF, HOME
DOF MANCOM: (I8K27+I8K28+I8K29+I8K30)*I0K2
;
;Manual Speed 
;U100K8=([W15K3=1]+[W15K3=129])*T0D
;U100K9=([W15K3=5]+[W15K3=133])*T0D
;U100K10=([W15K3=10]+[W15K3=138])*T0D
;U100K11=([W15K3=50]+[W15K3=178])*T0D
;U100K12=([W15K3=100]+[W15K3=228])*T0D
;Menu
;---------------------------------------
;F6 Choice of Speed
P3=I2N5
C2I(6)=P3
W100K3=DEC(C2W)
U100K31=[C2W=0]
W15K3=MUX(50,1,5,10,25,50,0),(I2N12,U100K24,U100K25,U100K26,U100K27,U100K28,U100K31)
;RUN
U10K4=U15K16+U15K17
ENDF MANCOM
;
;ONLY FOR MANU and PROF
DOF MANU: (I8K27+I8K29)*I0K2
   U100K1=I2N12*T0D
;Set Mode
W15K0=49H
;
;Choice of Axis
U15K16=I2N8+I2N9
U15K17=I2N10+I2N11
;Choice of Direct
U15K31=I2N9+I2N11
ENDF MANU
;
DOF MANJ: I8K28*I0K2
U100K1=I2N12*T0D
;Set Mode
W15K0=0C9H
;
;Choice of JOG (0.001, 0.01, 0.1, 1., 10., 100 mm)
P4=I2N6
C4I(7)=P4
W100K2=DEC(C4W)
U100K22=[C4W=0]
W16K2=W100K2
;
;Choice of Axis
U15K16=I2N8+I2N9
U15K17=I2N10+I2N11
;Choice of Direct
U15K31=I2N9+I2N11
ENDF MANJ
;----------------------------------------
DOF HOME: I8K30*I0K2
;Set Mode
W15K0=49H
;Choice of Axis
U15K16=I2N8+I2N9
U15K17=I2N10+I2N11
ENDF HOME
;==================================
;     
U250K0=U250K0*/I2N7+U200K0*(/I0A3+/I0A4)
U250K1=U250K1*/I2N7+U200K0*/I0A2
U250K2=U250K2*/I2N7+U200K0*(/I0A0+/I0A1)
U250K3=U250K3*/I2N7+U200K0*I0A21
U250K4=U250K4*/I2N7+U200K0*I0A22
U250K5=U250K5*/I2N7+U200K0*I0A23
U250K6=/U200K0
;
U250K8=U200K0*/I0A5
U250K9=U200K0*/I0A6
U250K10=U200K0*/I0A7
U250K11=U200K0*/I0A8
U250K12=U200K0
;
DOF:/U200K0
W17K3=MUX(16,12,13,17,18,19,0),(U250K0,U250K1,U250K2,U250K3,U250K4,U250K5,U250K6)
END F
DOE:U200K0
W17K3=MUX(3,4,5,6,0),(U250K8,U250K9,U250K10,U250K11,U250K12)
END E
;------------------------------------
